MacWorld 2005 July/Macworld CD 17.05.iso/Data/Main.dxr/00173_list .ls

Text File | 2000-02-28 | 502 b | 25 lines

property meS

on new me
  return me
end

on beginSprite me
  meS = me.spriteNum
end

on exitFrame me
  if rollOver(meS) then
    if the mouseLine <> -1 then
      if the textStyle of line the mouseLine of field "Product Names" = "plain" then
        set the textStyle of field "Product Names" to "plain"
        set the textStyle of line the mouseLine of field "Product Names" to "bold"
      end if
    end if
  end if
end

on mouseLeave me
  set the textStyle of field "Product Names" to "plain"
end